home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / More Examples / Muting instruments in sections < prev    next >
Text File  |  1998-10-26  |  1KB  |  53 lines
  1. ; muting instruments in sections using rest symbol
  2.  
  3. (def-grammar 'structure
  4.    all-sections (sect-a sect-b)
  5. )
  6.  
  7. (def-orchestra 'orchestra
  8.    all-instruments (piano1 piano2)
  9. )
  10.  
  11. (def-section sect-a
  12.    default
  13.       tempo-zones '(1/2 1/2 1/1 1/1 1/1)
  14.       zone '(1/1 1/1 1/1 1/1)
  15.       tempo '(200 170 100 150 175) ; tempos for each tempo zone
  16.       tonality (activate-tonality (major c 4))
  17.       length '(1/8)
  18.       velocity '(64)
  19.    piano1
  20.       channel 1
  21.       symbol '(a b c)
  22.       program '(1)
  23.    piano2
  24.       channel 2
  25.       symbol '(=)
  26.       program '(46)
  27. )
  28.  
  29. (def-section sect-b
  30.    default
  31.       tempo-zones '(1/2 1/2 1/1 1/1 1/1)
  32.       zone '(1/1 1/1 1/1 1/1)
  33.       tempo '(200 170 100 150 175) ; tempos for each tempo zone
  34.       tonality (activate-tonality (major c 4))
  35.       length '(1/8)
  36.       velocity '(64)
  37.    piano1
  38.       channel 1
  39.       symbol '(=)
  40.       program '(1)
  41.    piano2
  42.       channel 2
  43.       symbol '(ace)
  44.       program '(46)
  45. )
  46.  
  47. (midiport :printer)
  48.  
  49. (play-file-p nil
  50.    all-instruments '(all-sections)
  51. )
  52.  
  53.